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10 
EDTSINPUT = read a Line of input 1$- -Sep- 24 VAX-11 Bliss-32 V Page 1 
4 Vexgeen18Be 99:38:43 | eeddwGhASfeRcceor seedinpur.euis1 2% 1} 
; 1 001 ZTITLE “EDTSINPUT - read a Line of input’ : 
; § 8 § MODULE EDTSINPUT ( ! Read a Line of inpu : 
5 IDENT = ‘V04=-000' ! File: INP . BL Edit: REM2019 : 
5 4 004 des : 
3 5 bbe : BEGIN : 
: § 007 1 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeenketeeeeeeeeeeeeneeeeeee Ps 
3 8 0008 1 !* * $ 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ‘ 
: 13 Bett : ‘* ALL RIGHTS RESERVED. : ° 
: '® 3 
3 ig Oo1§ 1 !@ THIS FOr TuARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
3; (16 014 1 !* ONLY IN WITH E TERMS SUCH LICENSE AND WIT * : 
; 0015 1 !* INCLUSION 0 rae ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN THER * : 
; 16 8018 1's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
$ 17 001 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
H 18 Bo18 : ° TRANSFERRED. : ‘ 
H :* > 
' 80 0 1! ee INFGRMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
P4 21 0021 1 !«* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * F 
$ $$ 80 ¢ : :* CORPORATION. : ‘ 
3 e . 
: $e 0034 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
3 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ‘ 
:; 26 0026 1 !# * : 
3; a 0027 1 !* * ; 
3 28 00 8 1 Ve AEE P4 
; 9 0029 1! 3 
3 50 $086 1 $ 
3 1 OOF, 1 !4¢ : 
3 3 00 ¢ 1 ! FACILITY: EDT -- The DEC Standard Editor 3 
po 0033 1! : 
; «(34 0034 1 ! ABSTRACT: F 
5 0035 1! : 
3; » 0036 1! This module is called whenever an input Line is required for a 3 
; wf 0037 1! command or an insert. This module handles fetching of Lines : 
§ Hs ait ! from macros or from the initialization file. : 
3 29 oye : } ENVIRONMENT: User mode, sharable : 
: 42 9h 1 ! AUTHOR: Bob Kushlis, CREATION DATE: 4-Feb-1979 PY 
:; 43 0045 1! 3 
; | (44 0044 1 ! MODIFIED BY: $ 
3; 4$ 0045 1° : 
; 6446 BOe6 1! Dan Seypenekt, 17-NOV-80, 02 : 
s 67 0047 1! hange to EDTS$$GET_LN so that a Line of input from the terminal 3 
: 68 0048 1! which consists of only the ive. characters “z or “Z are not : 
: 69 0049 1! considered to be an end-of-f 3 
; 3 0050 1 ! 2-003 - Regularized headers. JBS a a-Febe -1981 3 
s $1 051 1! “R08 - Fix module name. JBS 06- s 
; 6 26 1 ! 2-005 = Use the ASSERT macro. SB *O1-J un-1981 F 
; 3 053 1! 2-0 $ - Remove explicit journaling. a gee un=198) 3 
; «654 054 1 ! 2-007 - Use new journaling interface. 49; 0 ~Jul-198 : 
Ee |, 055 1 ! 2-008 - seperete reading of the startup file from He Ba of the journal file. : 
= 0056 1 Aug-19 : 
oF 0057 1 | 2-009 - Make command file i/o use EDTSFILEIO. STS 25-Dec-1981 5 
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EDTSINPUT = read a Line of input 16-Sep-1984 00:34:43 VAX-11 Bliss-32 yet ene’ Page 2 
14-Sep-1984 12:23:19 DISKSVMSMASTER: CEDT.SRCJINPUT.BLI;1 (1) 
058 1 ! 2-010 = Remove DSCSA_POINTER macro STS 14-Jan-1982 
059 1 ! 2-011 = Convert reads and writes to use EDTSFILEIO. STS 15-Jan-1981 
060 1! “Big - Add rhb_descriptor. STS 21-Jan-19 
061 1 ! 2-015 = Remove reference to edt$$z_sys_cmdrab. STS jOnF eds ieee 
¢ 1 ! 2-014 = Add Literals for callable pareretere STS 08-Mar-198 
63 1 | 2-015 = Add EDTS$6_JOU-VALID, JBS 09-Apr-1982 
64 1! 2- 1 - Make sure an insert Line terminated by ‘§ gets {gycnal led. STS 24-Jun-1982 
065 1 ! 2-017 = Take out reference to edt$$tst_eob. STS 22-Sep-1982 
0 6 1 i Q- 18 - Improve the appearance of the Tisting. JBS 14-Jun-1983 
067 1 ! 2-019 = Added logic §8 maintain EDT$$G_TIN_OBUFPOS durring /RECOVERY mode. 
068 1! REM 10-0¢t-1983 
534 1 l= 
070 1 
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INPUT = read a Line of input 16-Se 
arations 14-Se 


71382 93:38:43 bt 
1 XSBTTL ‘Declarations’ 
} TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSS$GET_LN; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ’; 
ZIF ZBLISS (BLISS32) 
ZTHEN 


REQUIRE "EDTSRC:SYSSYM'; 
2FI 


1 
MACROS: 
NONE 


EQUATED SYMBOLS: 


EXTERNAL LITERAL 
EDTSK_GET, 
EDTSK~COMMAND_F ILE; 


OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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EXTERNAL ROUTINE 
STRSFREE1_DX; 


xFI 
EXTERNAL ROUTINE 
$$R 


OVALUE, 


D 
D 
DT$$RD-CURLN, 
DTS$S$RD-NXTLN; 
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SC : BLOCK (8, BYTE], 
RHB_BESC 
EOF; 
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SC : BLOCK (8, BYTE], 
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Position in journal ys buffer 


! 1 = journal record is va 


Read a text Line from the journal file 
Put a character in the journal file buffer 
Write out journal file buffer 


If the descriptors are for VAX/VMS then define the class and type fields. 


ZIF XBLISS (BLISS32) 
XTHE 


N 

RHB_DESC CDSC$B_CLASS] = DSCSK_CL 

FILE_DESC pDScse pr vre) = DSC$R_D 
ef FILE_DESC CDSC$B_CLASSJ = DSCSK_C 

RHB_DESC Poses pornTen. = 0; 

RHB_DESC COSC$W_LENGTH) = 0; 

FILE_DESC bpSCeh_Polnten) = 0; 

ae DSCS$W_LENGTH) = 0; 

= e 
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CINP_TERM) : 
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Input is coming from the terminal (or command procedure) 
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EDTSINPUT EDTSINPUT = read a Line of input 16-Sep-1984 00:34:43  VAX=11 Bliss-32_V4.0-74 Page 6) EDT 
BL O00 EDTSSCEy. LN - return a Line “ 12-8681 382 99:34:48 SEK SUMGHAS TERS CED? SRCTINPUT .BLI:1 . (3) | v04 
; 0 0829 + ; 
3 1 0 ' Since we are about to read from the terminal, make sure the Last ; 
: § 1 Line has been written to the Journal file. : 
3 4 : EDTSSTI_FLUSHJOUFI (%C'T'); | 3 
; 235 4 ~ EOF = EDTSSRD_CMDLN (.PROMPT, .PR_LEN, EDTS$S$T_CMD_BUF, EDTSS$G_CMD_LEN, 255); | : 
: 4 | § } Put the new Line in the journal file buffer. . 
: 239 8 : 
: 40 3 9 INCR COUNTER FROM 0 TO .EDT$$G_CMD_LEN - 1 DO : 
; 41 0840 EDTS$$TI_BUFCH (CHSRCHAR (CASPTR (EDT$S$T_CMD_BUF, .COUNTER))); : 
3 rk bac§ IF .EOF F 
; 246 084 THEN § 
> 245 0844 4 BEGIN : 
; 246 0845 4 EDTS$TI_BUFCH (%C'*'); 3 
: 247 0846 4 EDTSSTI_BUFCH (%C'Z"); F 
; $8 0847 END; ; 
; 24 0848 : 
3 $20 0849 '¢ : 
s 291 0850 ! Even if we put no characters into the journal record (because the line 3 
3 $26 0851 ! is empty) it is important to output the record next time around, since ; 
3 Sez $828 an empty record changes the current Line. : 
3 339 0854 EDT$$G_JOU_VALID = 1; : 
; 256 0855 END; 3 
3 $22 0856 | 3 
; 258 0857 CINP_JOURNAL) : 3 
3 $23 0858 2 !+ ; 
; 260 0859 2 ! Input is coming from the journal file. : 
3 so 0860 !- ; 
; O¢ 0861 BEGIN : : 
3 sor ad ASSERT (.EDT$$G_RCOV_MOD); ! Better be recovering : 
3 265 Oaee i a EOTOORS JGUTET (EDTSS$T_CMD_BUF, EDTS$$G_CMD_LEN) ! ‘ 
; seo 0866 ; EDTS$TI_WRLN (EDT$ST_CMD_BUF, .EDT$$G_CMD_LEN) ; 
3 $08 0867 SE 3 
g 69 0868 4 BEGIN 3 
; 270 0869 4 EOF = 1; : 
> 271 0870 4 EDT$$G_CMD_LEN = 0; | : 
: 27 0871 END; ; 
; ef Ba76 3 
: 274 7 EDTS$G_TIN_OBUFPOS = .EDT$$G_CMD_LEN : 
3; 275 pare 5 
: 27 875 END; | 3 
3s 47 pag : 
: 278 87 CINP_COMMAND] : ; 
3; 279 8 '¢ : - | 3 
3 30 143 Input is coming from the startup file. : 
; 388 881 BEGIN | : 
3; 284 ; ; LOCAL : 
; 285 884 STATUS; ; 
; 286 885 3 
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1 
EDTSINPUT = read a Line of input 1b-5¢ -1984 00:34:4 VAX-11 Bliss-32 V4.0-74 Pa 7| 
EDTSSCET LN - return a Line : 1 =3007 138% 99:39:49 DIEKSVMGMASTERSCEDT SRCTINPUT.BLI:1 - (3) | 
$ STATUS = EDTSSCALLFIO (EDTSK_GET, EDTSK_COMMAND_FILE, FILE_DESC, RHB_DESC); | 
3 IF .STATUS 
THEN 
90 BEGIN 
91 EDT$$G_CMD_LEN = FILE DESC COSC$W_LENGTH): | 
3 EDTSSCPY MEM (.EDTS$G_CMD_LEN, .FICE_DESC EDSCSA_POINTER], EDTSS$T_CMD_BUF); | 
94 ELSE 
95 BEGI 
38 EOF = 1; | 
9 EDTS$G_CMD_LEN = 0; 
96 END; 
99 
END; 
* CINP_MACRO) : 
; Input is coming from a text buffer. 
; BEGIN 


OCAL 
SAVE_TBCB; 


0910 

SAVE_TBCB = .EDTSSA_CUR_BUF ; 

EDT$SA_CUR_BUF = .EBDTSSA_MAC_BUF; 

EDTSSRB_CURLN (); 
| 


IF (.EDTSSA_WK_LN NEQA EDT$$Z_E0B_LN) 
THEN 


IN 
SSCPY_MEM (.EDTSSA_WK_LN CLIN LENGTH], EDTSSA_WK_LN CLIN_TEXTJ, EDT$$T_CMD_BUF); 
$$¢,CAD LEN = -EDTS$A~WK_LN CCIN_LENGTH); 
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EOF = 1; 
EDTS$G_CMD_LEN = 0; 
END; 
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EDTS$$A_CUR_BUF = .SAVE_TBCB; 
EDTSSRD_CURLN QO; | 


CINRANGE 
ASS 


OUTRANGE) : 
ERT (0); 
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'¢ 
: If input is coming from a file see if the Line ended with “2. 


DOOOOOOOOVOVIO 


Ww 
Soke) 


3: 
=—o 


IF (.EDTS$G_INP_SRC NEQ INP_TERM) 
THEN 
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F 11 | 
EDTSINPUT EDTSINPUT = read a Line of input 16-Sep-1984 VAX-11 Bliss-32 V4.0-7 
42000 EDTSSCET LN = poturn 8 line 14- et 7 99: 34:48 DISKSVMSMASTER:CEDT. sre INPUT.BLI;1 data ed 

| 

; 344 943 IF CHSEQL (2, (EDTSST_CMD_BUF - 2 + .EDTS$$G_CMD_LEN), 2, UPLIT BYTE('*Z")) | 
ae re: 9468 IFC CMD 2 + .EDTS$G_CMD_LEN), 2, UPLIT BYTE('*2Z° | 
: 46 945 BEGIN 
; 246 EDT$$G_CMD_LEN = .EDTS$G_CMD_LEN - 2; | 
; rs 94 EOF = T; 
i 326 rk —_ 
; i 930 IF ((.EDTS$G_INP_SRC NEQ INP_TERM) AND .EDTS$G_VFY) THEN EDTSSTI_WRLN (EDTSST_CMD_BUF, .EDT$$G_CMD_LEN); 
; 2g 936 EDTS$SA_CMD_END = CHSPTR (EDTSST . CMD_BUF, .EDT$$G_CMD_LEN); 
; 354 95 EDTSSA "CMD BUF = EDTS$T BUF? 
; se 0994 CHSWCHAR (ZC°!", .EDTSSA_ CRoe END); 
: 357 L 0996 ZIF XBLISS (BLISS32) 
; 358 095 ZTHEN 
: 359 0998 STRSFREE1_DX (RHB_DESC) 
; 360 95 STRSFREE1_DX (FILE_DESC ar 
iso mae 
: re 096 RETURN (.EOF); 
>; 364 0963 1 END; ! of routine EDTS$GET_LN 


-TITLE EDTSINPUT EDTSINPUT - read a Line of input 
-IDENT \Vv04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
5A 5E 00000 P.AAA: .ASCII 


a 
> 
La] 
a 
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EXTRN EDTSK_GET, EDT$K_COMMAND FILE 
“EXTRN ED Mb _BUF, EDT$$G_CAD_LEN 
“EXTRN ED “END, EDT$$A~CMD~BUF 
“EXTRN ED VrENT. EDT$$G_RCOU_MOD 
-EXTRN ED P-SRC, EDTS$$A_MAC_BuF 
“EXTRN ED R~BUF, EDTS$G_VFY 
-EXTRN ED OB-LN, EDTS$$A_QK_LN 
“EXTRN ED N~OBUF POS 
~EXTRN ED U VALID 
-EXTRN ST Bx, EDTS$RD_JOUTXT 
~EXTRN ED OF CH, EDISSIT. PLUSHJOUF 
"EXTRN ED F10, EDTS$TI_ORLN | 
EXTRN ED MDLN, EDTSSRB_CURLN 
“EXTRN ED XTLN, EDISSINTER. ERR 
OFFC 00000 ENTRY ED LN, Save R2,R3,R4,R5,R6,R7,.RB,RO,~ ; O717 | 
58 900000006 0 ED UF CH RII : | 
SA 99000006 0 ED Bur. : | 
59 000000006 ED “tH “LEN, R : 
5E 10 #i : 
03 AE 02 a ESC+ : 0810 
08 AE 02060000 &F s FILE_DESC : 0818 
04 AE RH 4 : 0815 
oc AE PIPE DESC #4 ORs 
+ P 
5 EO ; 0819 
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11 | 
EDTSINPUT EDTSINPUT = read a Line of input 1B-5e 1984 00:34:4 VAX-11 Bliss-32 V4.0-74 Page 9. EDT' 
eb EDTS$SGET_LN = return a Line . 1 ~3ep-19 4 903344 DISKSVMSMASTER:CEDT.SRCJINPUT.BLI:1 (3). v04 
3 00 000000006 00 CF CASEL EDT$$G_INP_SRC, #0, #3 : 0821) 
: WORD -1$,- : | 
00SF 009% oor$ oof $0888 1$ $<15 ed, = 
bl | a? é j 
18518.- ‘ie 
000000006 00 00 Fe 9049 CALLS #0, EDTSSINTER_ERR : 0933, 
ze 54 BF 9A 00049 2 MOVZBL #84, <(SP) F 0883, 
000000006 : 1 FB 00040 CALLS #1, EDT$$TI_FLUSHJOUF I : 
E FF F OA O94 MOVZBL #255, -(SP) + 0834) 
9 Dd 00058 PUSHL R : | 
5A pp O0>A PUSHL R10 : | 
7E 04 AC D MOVQ PROMPT, -(SP) : 
000000006 99 05 FB 0006 CALLS #5, EDTSSRD_CMDLN : 
5 0 DO 0006 MOVL RO, EO ; 
53 69 DO 0006A MOVL EDT$$G_CMD_LEN, R3 + 0839 
52 4 cE B068 MNEGL #1, COONTER : 
7 11 000 " BRB : 
7E 6A42 9A 00072 3$ MOVZBL EDTS$$T_CMD_BUFCCOUNTER], -(SP) + 0840 
68 01 FB 0076 CALLS #1, EDTSSTI_BUFCH : 
FS 52 53 F2 00079 4$ AOBLSS R3, COUNTER’ ; 
OE 57 E 0070 BLBC —-ECOF,, + 0842 
7E SE BF 9A 00080 MOVZBL #94, =(SP) + 0845 
68 01 FB 00084 CALLS #1, EDT$$TI_BUFCH : 
7E SA BF O9A_:00087 MOV ZBL , =(SP) + 0846 
68 01 FB 00088 CALLS #1, EDT$$TI_BUFCH : 
000000006 00 01 00 O008E 5 MOVL #1, EDT$$G_JOU_VALID + 0854 
62 11 00095 6$ BRB 13$ : 0821 
07 000000006 00 €8 00097 BLBS § EDT$$G_RCOV_MOD, 8$ + 0862 
000000006 00 00 FB 00095 CALLS #0, EDTSSINTER_ERR : 
59 DD O00A ab PUSHL  R9 > 0864 
5A DD 000A7 PUSHL R10 : | 
000000006 00 02 FB O00A9 CALLS 2, DT$$RD_JOUTXT ; | 
69 DD 00083 PUSHL EDT$$G_CMD_LEN : 0866 
5A DD 0008 PUSHL R10 : 
000000006 00 02 FB Sater CALLS 2, EDT$$TI_WRLN : 
57 01 00 G9cb 9$ MOVL #1, EOF : 0869 | 
69 D4 990¢ CLRL EDT $$G_CMD_LEN : 0870 
000000006 00 $9 D0 O0¢% 108: HOVE EDISSG_CMD_LEN, EDT$$G_TIN_OBUF POS > 0873 
8 DD OOOCE 11$:  PUSHL SP > 0886 
oc AE OF 900 PUSHAB FILE_DESC : | 
900000 0G 8F DD 000D PUSHL #EDTSK_COMMAND_FILE ; | 
00000006 8F DD 0000 PUSHL #EDTSK GET : 
000000006 00 04 FB OOD CALLS #4, EDTS SALLF10 : | 
0 0 £6 BLBC STATUS, 128 ; 0888 | 
6 08 Ar ¢ 0 £9 MOVZWL FILE DESC, EDTS$G_CMD_LEN : 0891 
6A OC BE 6 ED MOVC3 EDTS$SG_CMO_LEN, @FILEDESC+4, - > 0892. 
EDISST IC D “BUF ; 
SA 11 000F2 BRB 17$ : 0888 | 
57 01 00 000F4 12:  mOvL #i EOF : 0896 
$9 p4 F7 CLRL FDTS G_CMD_LEN : 089 
58 000000006 66 BO SO0re It; ROL EDISSA_CUR_GUF. SAVE Tece : $8¢i 
000000006 00 Nitditdit 88 pS O108 MOVL EDTSS$ATMAC“BUF. EDT$SA_CUR_BUF > 0912 | 
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000000006 00 


3; Routine Size: 


pts ay', ~ , reeds Line of input 
GET_ ne 


- return al 


000000006 06 p 
90000006 

6 

50 iv 

07 As 50 

9 6 

000000006 00 
57 1 
82 
00000006 68 8 
00000006 00 90 
000000006 9 

51 

50 69 

FE AA4O 

FE98 =F 9E 

06 

$9 02 

7 4 

12 1 

08 000000006 28 

SA 

000000006 00 02 
50 6A 

50 69 

000000006 00 6A 
50 000000006 00 

60 gt 

000000006 00 01 
08 AE 

000000006 00 01 
50 57 


Routine Base: _EDTSCQDE + 0002 
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" VAX-11 Bliss-52_ V4.0-74 


DISKSVMSMASTER:CEDT.SRCJINPUT.BLI;1 


Rw at te 
38° “Fos” th, RRO 


BRSm 


DT$$T_CMD_BUF 
CMD_CEN 
AXTLA 


sfc LEN 
E Sate “EDTSSA_ CUR_BUF 
EDT$S$RD_CURLN™ 


$$G_INP_SRC 


CMD_LEN, RO 
CM MD BUF =2CRO} 


$$G_CMD_LEN 


=CMD D-LEN, RO, EDTSSA_CMD_END 
T~CMD Bure EDTSSA_ CMD-BUF ~ 
A ASHEN 


STRSFREE1_DX 


STRSFREE1_DX 
- RO 
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ET Secey LN ~ reed 8 Line Pf snout 1b-5 300-1382 4 99: 33: 43 VAX-11 Bliss-32 V4.0-74 
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3 3 O3e? 1 END ! of module EDTSINPUT 

; ; 968 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: _EDTSCODE 440 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

: eoccce -- Symbols ------ -- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28: :LEDT. SRCJEDT .L 3251 377 13 3 40 00:00.2 

> ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

; ~$255$DUA28:CSYSLIBISTARLET.L32;1 9776 6 0 581 00:04.0 

3 COMMAND QUALIFIERS 

§ BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$: INPUT/OBJ=OBJ$: INPUT MSRC$: INPUT.BLI/UPDATE=(ENHS$: INPUT) 
: Siz 438 code + 2 data bytes 

3; Run Time: e 

3; Elapsed eb 00: ¢- 

3 Lines/CPU Min TA 

3 Lexenes/CPU-Rin: 09 

3 Y Used: 149 pages 

$ en ation Complete 
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